10 REM * BEISPIEL 1 *
20 REM ERZEUGEN EIGENER ZEICHEN
31 POKE 56334,PEEK(56334) AND 254:POKE 1,PEEK(1) AND 251
35 FOR I=0 TO 63               :REM ZU KOPIERENDER ZEICHENBEREICH
36 FOR J=0 TO 7                :REM ALLE 8 BYTES PRO ZEICHEN
37 POKE 12288+I*8+J,PEEK(53248+I*8+J):REM EIN BYTE KOPIEREN
38 NEXT J:NEXT I               :REM NRNDCHSTES BYTE ODER ZEICHEN
39 POKE 1,PEEK(1) OR 4:POKE 56334,PEEK(56334) OR 1
40 POKE 53272,(PEEK(53272) AND 240) + 12:REM ZEICHEN AUS RAM HOLEN
60 FOR ZEIC=60 TO 63           :REM NEUE ZEICHEN 60 BIS 63
80 FOR BYTE=0 TO 7             :REM ALLE 8 BYTES PRO ZEICHEN
100 READ NUMBER                :REM EINLESEN 1/8 ZEICHEN
120 POKE 12288+(8*ZEIC)+BYTE,NUMBER:REM DATEN SPEICHERN
140 NEXT BYTE:NEXT ZEIC
150 PRINTCHR$(147)TAB(255)CHR$(60);
155 PRINTCHR$(61)TAB(55)CHR$(62)CHR$(63)
160 REM BRINGT DIE NEUDEFINIERTEN ZEICHEN AUF BILDSCHIRM
170 GET A$                     :REM ERWARTET TASTENDRUCK
180 IF A$="" THEN GOTO 170     :REM NEUER VERSUCH WENN KEINE TASTE
190 POKE 53272,21              :REM ZURUECK ZU NORMALEN ZEICHEN
200 DATA 4,6,7,5,7,7,3,3       :REM DATEN FUER ZEICHEN 60
210 DATA 32,96,224,160,224,224,192,192:REM ZEICHEN 61
220 DATA 7,7,7,31,31,95,143,127:REM ZEICHEN 62
230 DATA 224,224,224,248,248,248,240,224:REM ZEICHEN 63
240 END